From 7904dc7a78cfabb8ec48c0389dd169bcbf90a423 Mon Sep 17 00:00:00 2001 From: Daniel Pfeiffer Date: Wed, 12 May 2004 18:45:08 +0000 Subject: [PATCH] (compilation-set-window-height): Use save-excursion to protect against misplaced marker. --- lisp/progmodes/compile.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 45705fc37bc..b22639f0350 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -990,8 +990,9 @@ exited abnormally with code %d\n" ;; buffer, which might not be the same as the selected window's buffer. (save-current-buffer (save-selected-window - (select-window window) - (enlarge-window (- height (window-height)))))))) + (save-excursion + (select-window window) + (enlarge-window (- height (window-height))))))))) (defvar compilation-menu-map (let ((map (make-sparse-keymap "Errors"))) -- 2.30.2